home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / windows / games / metaplay.arj / TEST.SCR < prev    next >
Text File  |  1991-01-16  |  4KB  |  162 lines
  1. playmf gdg.wmf 0,0,100,100
  2. settextvalign top
  3. settexthalign center
  4. settextheight 8
  5. boxtext "GDG Systems Proudly Presents",0,10,100,20
  6. settextheight 0
  7. settextvalign bottom
  8. boxtext "Press any key to continue...",0,0,100,100
  9. waitkey
  10. fillrect 0,0,100,100
  11. playmf metaplay.wmf 0,0,100,100
  12. boxtext "Press any key to continue...",0,0,100,100
  13. waitkey
  14. setpencolor 255,255,255
  15. setbrushcolor 128,128,128
  16. fillrect 0,0,100,100
  17. playmf gdg.wmf 0,0,50,50
  18. playmf gdg.wmf 0,100,50,-50
  19. playmf gdg.wmf 100,0,-50,50
  20. playmf gdg.wmf 100,100,-50,-50
  21. wait 5
  22. setpencolor 255,0,0
  23. setpenwidth 2
  24. setbrushcolor 255,255,255
  25. fillrect 30,25,40,50
  26. playtextfile demo1.txt,30,35,40,40
  27. waitkey
  28. setbrushcolor 255,255,255
  29. setpenwidth 0
  30. fillrect 0,0,100,100
  31. setpenwidth 2
  32. setbrushcolor 0,255,0
  33. fillrect 2,2,48,48
  34. setpencolor 0,0,255
  35. setbrushcolor 200,200,200
  36. fillellipse 52,52,48,48
  37. settextheight 8
  38. settextitalic on
  39. settextfamily roman
  40. settextvalign center
  41. boxtext "Ellipses",50,0,50,50
  42. boxtext "Rectangles",0,50,50,50
  43. settextheight 0
  44. settextvalign bottom
  45. boxtext "Press any key to continue...",0,0,100,100
  46. waitkey
  47. setpencolor 0,0,0
  48. rectangle 25,25,50,50
  49. setbrushcolor 128,0,128
  50. fill 2,2
  51. settextheight 8
  52. settextfacename modern
  53. settextcolor 255,255,255
  54. settextvalign center
  55. settextitalic off
  56. setpenwidth 1
  57. line 20,0,20,100
  58. line 40,0,40,100
  59. line 60,0,60,100
  60. line 80,0,80,100
  61. boxtext "Fills",0,0,50,50
  62. boxtext "and Lines",50,50,50,50
  63. waitkey
  64. settextcolor 0,64,255
  65. settextheight 50
  66. boxtext "FONTS",0,0,100,100
  67. waitkey
  68. setbrushcolor 255,255,255
  69. setpencolor 255,255,255
  70. fillrect 0,0,100,100
  71. settextheight 0
  72. settexthalign right
  73. settextfacename system
  74. settextfamily dontcare
  75. playmf chart.wmf,25,0,80,100
  76. playtextfile demo2.txt,0,0,25,100
  77. setpencolor 0,0,0
  78. setbrushcolor 255,0,0
  79. fill 85,70
  80. settexthalign center
  81. settextvalign bottom
  82. settextcolor 0,255,0
  83. boxtext "Press any key to continue...",0,0,100,100
  84. waitkey
  85. setbrushcolor 255,255,255
  86. setpencolor 255,255,255
  87. fillrect 0,0,100,100
  88. playmf wedding1.wmf,0,0,50,50
  89. playmf samerica.wmf,0,50,50,50
  90. playmf cstates.wmf,50,50,50,50
  91. playmf chart.wmf,50,0,50,50
  92. settextcolor 255,0,0
  93. boxtext "Press any key to continue...",0,0,100,100
  94. waitkey
  95. setbrushcolor 200,200,200
  96. fillrect 0,0,100,100
  97. settextcolor 0,0,255
  98. settextvalign center
  99. settextheight 20
  100. settextfamily roman
  101. settextfacename roman
  102. settextcharset oem
  103. settextweight 400
  104. fillrect 30,30,40,40
  105. boxtext "10",0,0,100,100
  106. wait 8
  107. fillrect 30,30,40,40
  108. boxtext "9",0,0,100,100
  109. wait 8
  110. fillrect 30,30,40,40
  111. boxtext "8",0,0,100,100
  112. wait 8
  113. fillrect 30,30,40,40
  114. boxtext "7",0,0,100,100
  115. wait 8
  116. fillrect 30,30,40,40
  117. boxtext "6",0,0,100,100
  118. wait 8
  119. fillrect 30,30,40,40
  120. boxtext "5",0,0,100,100
  121. wait 8
  122. fillrect 30,30,40,40
  123. boxtext "4",0,0,100,100
  124. wait 8
  125. fillrect 30,30,40,40
  126. boxtext "3",0,0,100,100
  127. wait 8
  128. fillrect 30,30,40,40
  129. boxtext "2",0,0,100,100
  130. wait 8
  131. fillrect 30,30,40,40
  132. boxtext "1",0,0,100,100
  133. wait 8
  134. setbrushcolor 0,0,0
  135. settextcolor 0,255,0
  136. settextfamily roman
  137. settextfacename Bitstream Cooper Black
  138. settextcharset ansi
  139. setbrushcolor 255,255,255
  140. settextheight 0
  141. fillrect 0,0,100,100
  142. boxtext "This demo has been brought to you by",0,0,100,10
  143. playmf gdg.wmf 0,10,100,40
  144. boxtext "and the",0,50,100,10
  145. playmf wugnet.wmf 0,60,100,40
  146. wait 40
  147. setbrushcolor 0,0,0
  148. fillrect 0,0,100,100
  149. settextcolor 255,0,0
  150. settextvalign center
  151. settextheight 20
  152. settextfamily roman
  153. settextfacename roman
  154. settextcharset oem
  155. settextweight 400
  156. boxtext "Thank you",0,0,100,33
  157. boxtext "for taking at look",0,34,100,33
  158. boxtext "at METAPLAY.",0,67,100,33
  159. wait 20
  160. close
  161. 
  162.